home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tt.d64 / time adventure.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  140 lines
  1. 11 OPEN1,8,2,"0:TIM VEN1,S,R":GOSUB97
  2. 12 OPEN1,8,2,"0:TIM VEN2,S,R":GOSUB95
  3. 13 OPEN1,8,2,"0:TIM VEN3,S,R":GOSUB95
  4. 14 OPEN1,8,2,"0:TIM VEN4,S,R":GOSUB95
  5. 15 OPEN1,8,2,"0:TIM VEN5,S,R":GOSUB95
  6. 16 OPEN1,8,2,"0:TIM VEN6,S,R":GOSUB95
  7. 17 OPEN1,8,2,"0:TIM VEN7,S,R":GOSUB95
  8. 18 OPEN1,8,2,"0:TIM VEN8,S,R":GOSUB95
  9. 19 PRINT"**** CONGRATULATIONS ****"
  10. 20 PRINT"YOU HAVE WON TIME VENTURE!!!"
  11. 23 PRINT"[147]":END
  12. 95 PRINT"CONGRATULATIONS YOU HAVE JUST LEFT THE"N$"AREA"
  13. 96 PRINT"BUT YOUR NOT DONE YET!!"
  14. 97 CLR:INPUT#1,N$
  15. 98 PRINT" YOU HAVE JUST ENTERED A";N$
  16. 99 INPUT#1,A1,B1,C1,RT,BE,TR,GB,RC,TT:RESTORE
  17. 100 DIMR$(A1,B1,C1),R%(6),T$(RT),M%(5),M$(5),F$(BE),G$(BE),C$(TR),B$(GB)
  18. 110 DIMB%(GB),Z$(RC),S$(SP),W$(SP)
  19. 280 FORL=0TOA1:FORJ=0TOB1:FORK=0TOCQ:INPUT#1,R$(L,J,K):NEXTK,J,L
  20. 300 FORJ=0TORT:INPUT#1,T$(J):NEXTJ
  21. 330 FORX=0TO5:READM$(X):NEXTX
  22. 331 M%(1)=(A1+1)*(B1+1):M%(0)=-M%(1)
  23. 332 M%(2)=A1+1:M%(3)=-M%(2)
  24. 333 M%(4)=1:M%(5)=-1
  25. 370 FORX=0TOBE:INPUT#1,F$(X):INPUT#1,G$(X):NEXTX
  26. 400 FORX=0TOTR:INPUT#1,C$(X):NEXTX
  27. 412 FORJ=0TORC:INPUT#1,Z$(J):NEXTJ
  28. 420 FORX=0TOGB:INPUT#1,B$(X):NEXTX
  29. 450 X=RND(-TI):FORX=0TO3:INPUT#1,S$(X):W$(X)="X":READS$:S$(X)=S$(X)+S$
  30. 460 FORJ=1TOX+2:Z$=CHR$(RND(1)*15+65):W$(X)=W$(X)+Z$:NEXTJ,X
  31. 470 CLOSE1:V=20
  32. 480 IFV<15THENV=15:PRINT"VITALITY RESTORED TO";V
  33. 490 J=0:K=0:L=0
  34. 500 IFL+1<C1THEN509
  35. 501 IFR=1THEN1440
  36. 502 R$="YOU ARE NEXT TO A TIME MACHINE          SIGN SAYS '500 COINS'"
  37. 503 D$=" "
  38. 504 R$=R$+"                   GO WEST TO ENTER TIME MACHINE"
  39. 509 D$=LEFT$(R$,1):T=VAL(MID$(R$,2,1)):H$=T$(T)
  40. 510 R$="YOU ARE IN A "+MID$(R$,3)+" "+H$
  41. 520 PRINTR$:A=J*(A1+1)+K+L*((A1+1)*(B1+1))
  42. 530 R=-1:D=ASC(D$):D1=1:FORX=0TO5:IF(DANDD1)>0THENGOSUB1320
  43. 540 D1=D1*2:NEXTX:A1=A+32:IFR=0ANDR%(0)+M2=0THENPRINT"==DEAD END=="
  44. 545 FORX=0TORC:IFASC(Z$(X))=A1THENPRINTMID$(Z$(X),2)
  45. 546 NEXTX
  46. 550 FORX=0TOSP:IFASC(S$(X))=A1GOTO570
  47. 560 NEXTX:GOTO580
  48. 570 IFX<>3ORB%(1)=1THENPRINTMID$(S$(X),2);" SPELL WORD IS ";W$(X);"[146]'"
  49. 580 B1=0:FORX=0TOGB:IFASC(B$(X))=A1GOTO600
  50. 590 NEXTX:GOTO620
  51. 600 B$=MID$(B$(X),2):B1=1:B2=X
  52. 610 PRINT"THERE IS A ";B$;" HERE."
  53. 620 C1=0:FORX=0TOTR:IFASC(C$(X))=A1GOTO640
  54. 630 NEXTX:GOTO660
  55. 640 C1=VAL(MID$(C$(X),2,1))*100:C$=MID$(C$(X),3):PRINT"THERE ARE";C1;C$;" HERE"
  56. 650 C2=X
  57. 660 G$="":FORX=0TOBE:IFASC(F$(X))=A1GOTO680
  58. 670 NEXTX:GOTO720
  59. 680 G$=G$(X):PRINT"A ";MID$(F$(X),4);" ";G$;" BARS YOUR WAY!"
  60. 690 G1=VAL(MID$(F$(X),2,1)):G2=VAL(MID$(F$(X),3,1))*100:IFG2=0THENG2=1E9
  61. 700 G3=(X+1)*INT(X/3+1):G5=X
  62. 720 INPUT"MOVE";Y$
  63. 727 Z$=LEFT$(Y$,1)
  64. 730 J1=0:K1=0:L1=0
  65. 740 IFZ$="D"THENL1=1
  66. 750 IFZ$="U"THENL1=-1
  67. 760 IFZ$="N"THENJ1=1
  68. 770 IFZ$="S"THENJ1=-1
  69. 780 IFZ$="E"THENK1=1
  70. 790 IFZ$="W"THENK1=-1
  71. 800 M1=K1+(A1+1)*J1+((A1+1)*(B1+1))*L1:IFM1=0GOTO880
  72. 810 FORX=0TOR:IFM1=R%(X)GOTO830
  73. 820 NEXTX:PRINT"YOU CAN'T GO THAT WAY":GOTO720
  74. 830 IFG$<>""ANDM1+M2<>0THENPRINT"THE ";G$;" WON'T LET YOU BY!":GOTO720
  75. 840 M9=M9+1:M2=M1:J=J+J1:K=K+K1:L=L+L1
  76. 870 R$=R$(J,K,L):GOTO500
  77. 880 IFZ$="F"ORZ$="B"GOTO1120
  78. 890 IFZ$="T"GOTO1030
  79. 900 IFZ$="X"GOTO930
  80. 910 PRINT"N[146]ORTH S[146]OUTH  E[146]AST W[146]EST  U[146]P D[146]OWN  F[146]IGHT  B[146]ARGAIN T[146]AKE"
  81. 920 GOTO720
  82. 930 FORX=0TOSP:IFY$=W$(X)GOTO960
  83. 940 NEXTX
  84. 950 PRINT"?? NOTHING HAPPENS ??":GOTO720
  85. 960 IFL=3ANDX=2GOTO950
  86. 970 IFX=0THENJ=3:K=3:M2=3:GOTO850
  87. 980 IFX>0ANDX<3ANDG$=""GOTO950
  88. 990 S$(X)="[255]":W$(X)="[255]"
  89. 1000 IFX=1THENPRINT"THE ";G$;" FALLS ASLEEP.":G$="":GOTO720
  90. 1010 IFX=2THENPRINT"THE ";G$;" VANISHES!":G$="":F$(G5)="[255]":GOTO720
  91. 1020 V=20:PRINT"VITALITY RESTORED TO";V:GOTO720
  92. 1030 IFB1+C1=0THENPRINT"?? NOTHING HERE ??":GOTO720
  93. 1040 IFG$<>""THENPRINT"THE ";G$;" WON'T LET YOU HAVE IT!":GOTO720
  94. 1050 IFB1=0GOTO1110
  95. 1060 B%(B2)=1:B1=0:B$(B2)="[255]"+MID$(B$(B2),2)
  96. 1070 PRINT"YOU NOW HAVE:";:Z=C$(L*2)=C$(L*2+1):FORX=0TOGB:IFB%(X)=0GOTO1090
  97. 1080 PRINT:PRINT"..";MID$(B$(X),2);
  98. 1090 NEXT X:IFZTHENPRINT:PRINT"** ALL TREASURE";:IFT9<8THENPRINT" IN LEVEL";L+1;
  99. 1100 PRINT:PRINT"..";V1;" COINS.":GOTO720
  100. 1110 E=E+1:V1=V1+C1:C1=0:C$(C2)="[255]":T9=T9+1:GOTO1070
  101. 1120 IFG$=""THENPRINT"?? NOBODY HERE ??":GOTO720
  102. 1130 IFZ$="B"GOTO1210
  103. 1140 PRINT"THE ";G$;" ";:G4=5:IFG3<=5THENG4=G3:GOTO1170
  104. 1150 PRINT"IS WOUNDED";
  105. 1160 GOTO1180
  106. 1170 PRINT"IS OVERCOME";:G$="":F$(G5)="[255]":E=E+1
  107. 1180 V=V-G4*10/(10+E+8*B%(3)+5*B%(2)):IFV<=0THENPRINT"-BUT YOU'RE KILLED!":GOTO1480
  108. 1190 PRINT":YOUR VITALITY IS REDUCED TO";INT(V)
  109. 1200 G3=G3-G4:GOTO720
  110. 1210 IFG2>V1GOTO1240
  111. 1220 PRINT"THE ";G$;" WANTS";G2;"COINS: OK";:INPUTZ$:IFASC(Z$)=78GOTO1240
  112. 1230 V1=V1-G2:GOTO1290
  113. 1240 IFG1>3GOTO1310
  114. 1250 IFB%(G1)=0GOTO1310
  115. 1260 PRINT"THE ";G$;" WILL TAKE THE ";MID$(B$(G1),2);": OK";:INPUTZ$
  116. 1270 IFASC(Z$)=78GOTO1310
  117. 1280 B%(G1)=0
  118. 1290 PRINT"IT'S A DEAL!  THE ";G$;" IS GONE."
  119. 1300 E=E+1:G$="":F$(G5)="[255]":GOTO1070
  120. 1310 PRINT"NO DEAL...":GOTO720
  121. 1320 R=R+1:M=M%(X):R%(R)=M:M$=M$(X)
  122. 1330 X$="YOU MAY GO":IFL<0GOTO1430
  123. 1340 A1=A+M:IFA1<0GOTO1430
  124. 1350 L1=INT(A1/16):A1=A1-L1*16:J1=INT(A1/4):K1=A1-J1*4
  125. 1360 T1=VAL(MID$(R$(J1,K1,L1),2,1))
  126. 1370 IFT=T1THENX$="THE "+H$+" CONTINUES":GOTO1430
  127. 1380 IFT<>3ANDT1<>3GOTO1410
  128. 1390 X$="A DOORWAY OPENS":IFABS(M)>15THENX$="A STAIRWAY LEADS"
  129. 1400 GOTO1430
  130. 1410 IFT=0ORT1=0THENX$="A TUNNEL GOES":GOTO1430
  131. 1420 X$="A PASSAGE LEADS"
  132. 1430 PRINTX$;" ";M$:RETURN
  133. 1440 IFV1<>TT*100THENR=0;:GOTO950
  134. 1480 RETURN
  135. 2000 DATAUP,DOWN,NORTH,SOUTH,EAST,WEST
  136. 2001 DATAA VOICE SAYS 'SLEEP
  137. 2002 DATAA POSTER READS 'TRAVEL
  138. 2003 DATAA DIPLOMA READS 'HEALING
  139. 2004 DATAA NOTE SAYS 'VANISHING
  140.